﻿Namespace Connection.SqlServer

    Public Class SqlServerConnector
        Inherits Connector

        Public Overrides Function Connect() As System.Data.IDbConnection
            Dim cn = Me.CreateDbConnection
            cn.Open()
            Return cn
        End Function

        Private Function CreateDbConnection() As SqlClient.SqlConnection
            Dim cn As SqlClient.SqlConnection = New SqlClient.SqlConnection
            cn.ConnectionString = Me.ConnectionString
            Return cn
        End Function
    End Class

End Namespace
